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C64 


C64 


C64 


Còk 


Còk 


Còl 





Guida per l'input dei programmi versioni 


C64 

Notate che i listati contengono ‘pa¬ 
role' racchiuse tra parentesi graffe 
j /. Tali parole rappresentano carat¬ 
teri di controllo come mostrato nel 
sottostante riquadro. Se sono pre¬ 
cedute da un numero, questo indi¬ 
ca il numero di volte che quel tasto 
deve essere premuto. Se il simbolo 
è sottolineato deve essere premuto 
contemporaneamente a SHIFT men¬ 
tre se è racchiuso da [()ì deve esse¬ 


re premuto contemporaneamente 
al tasto COMMODORE. Inoltre, se 
tra parentesi si trova un carattere 
alfabetico "solitario”' questo dovrà 
essere premuto contemporanea¬ 
mente al tasto CONTROL. 

Con questo sistema di codifica, sa¬ 
rà molto più agevole copiare i lista¬ 
ti senza faticose e dubbie interpre¬ 
tazioni di caratteri grafici e di con¬ 
trollo del cursore o dei colori. 


{CLR} 
{HOME} 
{SU} " 
{GIU * } 
{SIN} 
{DES} 

{RVS } 
{OFF} 

{BLK} 

{WHT} 
{RED} 




c 


C 





rrni q 

WEB Q 



{CYN} 
{PUR} 
{GRN} 
{BLU} 

{yel} 

[< 1>1 

[< 2 >] 

( < 3 > ] 
[< 4 >] 

(< 5 >) 

l<6>] 


EOO O 


[<7>1 

17TT1 Q 

m 

[ < 8 > ) 

QQS Q 

□ 

{FI} 

I4IJ1 Q 

B 

{F2 } 

Q23 D 

19 

{F3} 

30 

■Al 

□ 

{F4 } 

QQ 

rs 

{F5} 

30 

o 

{F6} 

30 


{F7} 

30 

E 

{F8 } 

HO 

■ 




Per ricevere gli arretrati di Si/Z’J compilare il seguente tagliando: 

X 


. Compilare ed inviare in busta chiusa a: 

J.SOft viale Restelli, 5 - 20124 Milano - Tel. 02/6888228-683797-6880841-2-3 


Nome_____ 

Cognome___ 

4 

Indirizzo---- 

CAP_ Città___ Prov. 


Desidero ricevere i seguenti numeri arretrati di 



(£^(^§5^ dedicato a_ 

a L. 2.000 cad. per un totale di L. 


- 


Anno 

Anno. 



a mezzo 


□ assegno allegato □ contanti allegati 

X 
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Stop Bus 



Se non l'hai sia fatto, memorizza 
STOP BUG e salvalo su nastro o di¬ 
sco. 

Questo programma ti permette, 
una volta caricato ed attivato con 
' RUN, di digitare i listati di Papersoft 
senza introdurre errori di battitu¬ 
ra. 

Come avrai notato, le linee dei no¬ 
stri programmi terminano con la 
parola: “-.rem” seguita da un nume¬ 
ro, detto checksum; NON COPIA¬ 
RE QUESTA PARTE DELLA LINEA, 


che serve solo per tua informazio¬ 
ne. Quando STOP BUG è in funzio¬ 
ne, infatti, tutte le volte che premi 
il tasto RETURN dopo aver digitato 
una linea di programma, appare 
nell'angolo superiore sinistro dello 
schermo un numero, che deve 
coincidere con il checksum da noi 
pubblicato (sempre che tu non ab¬ 
bia usato comandi abbreviati, co¬ 
me? per PRINT). 

Usando STOP BUG tieni conto del 
fatto che gli spazi non influiscono 
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sul checksum, per cui fai particola¬ 
re attenzione alle istruzioni PRINT 
dove sono spesso presenti. Inoltre 
eventuali inversioni di caratteri non 
vengono segnalate. 

Un altro metodo per utilizzare 
STOP BUG, soprattutto se sei abi¬ 
tuato ad usare le abbreviazioni dei 
comandi Basic, è controllare i che¬ 
cksum listando il programma e bat¬ 
tendo RETURN su ogni linea. 


STOP BUG per C64 

100 POKE55,0 :POKE56,PEEK(56)-1 :R=PEEK(56)*256:PRINT"{CLR} 
ATTENDERE PREGO..." 

110 FORI= RTOR+132:READA:CK=CK+A:IFA=999THENA=R/256 
120 POKEI,A:NEXT 

130 IFCK022689THENPRINT" {GIU ' }ERRORE NELLE ISTRUZIONI DA 
TA":END 

140 SYS(R):PRINT"{CLR}{ 2 GIU’}{RVS}STOP BUG{OFF} ATTIVAT 
O.": NEW 

200 DATAI 73,36,3,201 ,32,208,1,96,1 41 
210 DATA33,999,173,37,3,141,34,999,169 
220 DATA32,141,36,3,169,999,141,37,3 
230 DATAI 69,0,1 33,254,96,32,87,241 ,1 33 
240 DATA2 51 ,1 34’, 252,1 32,253,8,201 ,1 3,240 
250 DATAI 7,201 ,32,240,5,24,101 ,254,133 
260 DATA254,165,251 ,1 66,252,1 64,253,40,96 
270 DATAI 69,1 3,32,210,255,165,214,1 41 ,251 
280 DATA3,206,251 ,3,169,0,133,216,169 
290 DATAI 9,32,210,255,169,1 8,32,210,2 55 
300 DATAI 69,58,32,21 0,255,1 66,2 54,1 69,0 
310 DATAI 33,2 54,1 72,33,999,1 92,87,208,6 
320 DATA32,205,1 89,76,1 1 7,999,32,205,221 
330 DATAI 69,32,32,210,255,32,21 0,2 55,173 
340 DATA251,3,133,214,76,55,999 


Se intendi sospendere il lavoro di 
digitazione, puoi salvare su nastro 
o disco il programma che stai me¬ 
morizzando senza che STOP BUG 
interferisca,- al momento di ripren¬ 
dere il lavoro ricordati però di cari¬ 
care ed attivare STOP BUG prima 
di ricaricare il tuo programma. 

Per disabilitare STOP BUG premi 
RU N/STOP e RESTO RE, e per riatti¬ 
varlo batti SYS 40704. 
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pi Triangolo Magico 


Questo è un gioco che, apparente¬ 
mente facile, richiede invece una 
notevole abilità e intelligenza. Si 
gioca da soli, su una scacchiera a 
forma di triangolo, con 15 caselle 
e 14 pedine, di cui una rossa. 
L'obiettivo è "mangiare " le pedine 
ad una ad una, e rimuoverle dal 
campo di gioco, in modo da rima¬ 
nere con un solo pezzo. Si può 
mangiare una pedina scavalcando¬ 
la con un 'altra, che poi andrà a fer¬ 
marsi nella casella successiva (in¬ 
somma come nella dama). Per otte¬ 
nere una migliore valutazione l’ulti¬ 


ma e sola pedina rimasta sulla 
scacchiera deve essere quella ros¬ 
sa e deve finire nella casella centra¬ 
le sulla base del triangolo. 
AH'inizio del programma appare 
un menu: possono essere scelte le 
posizioni della pedina rossa e del¬ 
ia casella libera all'inizio della par¬ 
tita, oppure si può lasciare che le 
decida casualmente il computer. 
Quando il giocatore non può più 
effettuare una mossa valida, deve 
semplicemente premere [RE¬ 
TURN]. 


1 REM * * *TRIANGOLO MAGICO*** 


: rem 

1 1 2 

4 GOTO!00 


: rem 

254 

5 PRINT"{GIU 1 }PREMI SPAZIO QUANDO SEI 

PRONTO" 

: rem 

245 

6 Q$ = "":GETQ$:IFQ$ = ""THEN6 


: rem 

223 

7 RETURN 


: rem 

23 

100 DIMB (15) 


: rem 

1 00 

110 FORJ=1TOl5:READP:B(J)=P:NEXT 


: rem 

253 

120 DATA1 442,1 560,1 564,1 678,1 682 


: rem 

107 

130 DATAI 686,1 796,1 800,1 804,1 808 


: rem 

1 1 3 

140 DATAI 91 4,1 91 8,1 922,1 926,1 930 


: rem 

1 1 0 

150 D=54272 


: rem 

27 

160 POKE53280,9 


: rem 

45 

170 POKE53281,5 


: rem 

43 

180 PRINTCHR$(5) 


: rem 

1 73 

1000 PRINTCHR$(147);TAB(12)"TRIANGOLO 

MAGICO" 

: rem 

1 65 

1010 PRINT"{ 12 DES}{ 3 GIU'}SCELTA OPZIONI:-" 

: rem 

109 

1 020 PRINT"{ 2 GIU 1 } 1 : POSIZIONE CASUALE" 

: rem 

223 

1 030 PRINT"{GIU' }2 : POSIZIONE PROGRAMMATA" 

: rem 

13 

1 040 PRINT"{GIU'}3 : ISTRUZIONI" 


: rem 

52 

1100 GOSUB6:IFQ$<"1"ORQ$>"6"THENl100 


: rem 

38 

1105 IFQ$="3"THEN7000 


: rem 

1 1 7 

1110 DIMA(15) 


: rem 

1 49 

1120 FORJ=1TOl5 : A(J)=1 :NEXT 


: rem 

105 

1130 IFQ$ = "2"THEN2 000 


: rem 

1 09 

1140 A=RND(0) 


: rem 

1 69 
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1 1 50 

A=INT(RND(1)*15)+1 


: rem 

21 1 

1 1 60 

A(A)=2 


: rem 

1 0 

1 1 70 

B=INT(RND(1)*15)+1 


: rem 

21 4 

1 1 80 

IFB=ATHENl170 


: rem 

1 7 

1 1 90 

A(B)=0 


: rem 

1 2 

1 200 

GOT03000 

• 

: rem 

191 

2000 

REM 


: rem 

1 66 

2005 

GOSUB2100 


: rem 

10 

201 0 

INPUT"{ 4 GIU'{POSIZIONE ROSSA (1-15){ 3 

SPAZI}* 



{ 3 SIN}";A$ 


: rem 

21 7 

2020 

A=VAL(A$) 


: rem 

21 9 

2030 

IFA< 1 ORA> 1 50RAO INT ( A) THENPRINT" { 6 SU}" 

:GOTO2010 





: rem 

253 

2040 

A(A)=2 


: rem 

8 

2050 

PRINT"{GIU' }" 


: rem 

1 69 

2060 

INPUT"POSIZIONE VUOTA (1-15){ 3 SPAZI}*} 

3 

SIN}"; 

B$ 


• 


: rem 

1 62 

2070 

B=VAL(B$) 


: rem 

226 

2080 

IFB = AORB < 1 ORB > 1 50RBO INT (B) THENPRINT"} 2 

SU}":GOTO20 


60 


: rem 

40 

2085 

A(B)=0 


: rem 

1 6 

2090 

GOTO3000 


: rem 

199 

2100 

PRINT"}CLR}"TAB( 1 8) " 1 " 


: rem 

45 

21 05 

PRINT 


: rem 

85 

21 1 0 

PRINTTAB(16)"2{ 3 SPAZI}3" 


: rem 

1 37 

21 1 5 

PRINT 


: rem 

86 

21 20 

PRINTTAB(14)"4{ 3 SPAZI}5} 3 SPAZI}6" 


: rem 

1 94 

21 25 

PRINT 


: rem 

87 

21 30 

PRINTTAB(12)"7{ 3 SPAZI}8{ 3 SPAZI}9{ 2 

SPAZI}10" 





: rem 

43 

21 35 

PRINT 


: rem 

88 

21 40 

PRINTTAB(IO)"11{ 2 SPAZI}!2} 2 SPAZI}}RVS}1 

3{OFF} 



{ 2 SPAZI}! 4 15" 


: rem 

1 85 

21 50 

RETURN 


: rem 

168 

3000 

REM 


: rem 

167 

3005 

PRINT"}CLR}{ 7 GIU'}DESIDERI LA TAVOLA DEI 

NUMERI 

(S 


O N) ?" 


: rem 

98 

301 0 

GOSUB6:IFQ$="N"THENPRINT"}CLR}":GOTO3040 


: rem 

84 

3020 

IFQ$O"S"THEN301 0 


: rem 

205 

3030 

GOSUB2100 


: rem 

9 

3040 

GOSUB5000 


: rem 

1 2 

31 50 

PRINT"{HOME}{ 14 GIU'}" 


: rem 

1 55 

31 55 

PRINT"} 11 SPAZI}}GIU'}":PRINT"{ 11 SPAZI}} 

3 SU} 

II 




: rem 

11 0 

31 60 

INPUT" DA} 3 SPAZI}*} 3 SIN}";A$ 


: rem 

1 96 

31 70 

IFA$ = "*"THENl 0000 


: rem 

1 38 

31 80 

A=VAL(A$) 


: rem 

227 

31 90 

IFA<1ORA>l5THENPRINT"{ 2 SU}":GOT03160 


: rem 

239 

3200 

IFPEEK (B (A) ) 087ANDPEEK (B (A) ) 081 THENA$ = 

"0" 

: GOTO3180 




: rem 

1 1 

3205 

PRINT 


: rem 

87 
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321 0 

INPUT" A{ 4 SPAZI}*{ 3 SIN}";B$ 

: rem 

1 25 

3220 

B=VAL(B$) 

: rem 

224 

3230 

IFB<1ORB>15THENPRINT"{ 2 SU}":G0T03210 

: rem 

232 

3240 

IFPEEK (B (B) ) 042THENGOSUB6000 : G0T031 50 

: rem 

52 

3300 

C=(B(A)+B(B))/2 

: rem 

204 

331 0 

IFPEEK (C ) 081 ANDPEEK (C ) < >87THENGOSUB6000 : 

GOT03150 



: rem 

24 

3320 

IFABS(C-B(A))>130THENGOSUB6000:G0T03150 

: rem 

69 

3330 

RY=7:IFPEEK(B(A))=81THENRY=2 

: rem 

234 

3400 

POKEC,42 :POKEC+D,0 

: rem 

66 

341 0 

POKEB(B),PEEK(B(A)):POKEB(B)+D,RY 

: rem 

198 

3420 

POKEB(A) ,42 :POKEB(A)+D,0 

: rem 

102 

3430 

FORJ=1TOl5 

: rem 

11 4 

3440 

IFCOB(J) THENNEXT 

: rem 

98 

3450 

IFJ=16THENSTOP 

: rem 

1 90 

3460 

A(B)=A(A) : A(A)=0:A(J)=0 

: rem 

1 74 

3500 

GOTO3150 

: rem 

202 

5000 

REM 

: rem 

1 69 

501 0 

FORJ=lTOl5 

: rem 

1 1 0 

5020 

IFA(J)=1THENPOKEB(J),87:POKEB(J)+D,7 

: rem 

1 42 

5030 

IFA(J)=2THENPOKEB(J),81:POKEB(J)+D,2 

: rem 

133 

5040 

IFA(J)=0THENPOKEB(J),42:POKEB(J)+D,0 

: rem 

1 27 

5050 

NEXT 

: rem 

9 

5060 

RETURN 

: rem 

1 71 

6000 

REM 

: rem 

1 70 

601 0 

PRINT"{HOME}{GIU'}{RVS}{ 2 SPAZl}MOSSA ILLEGALE" 




: rem 

1 44 

601 5 

PRINT"{GIU 1 }{RVS} C PER CONTINUARE" 

: rem 

226 

6020 

GOSUB6:IFQ$<>"C"THEN6020 

: rem 

1 80 

6030 

PRINT"{HOME}{GIU'}{ 16 SPAZI}" 

: rem 

1 90 

6035 

PRINT"{GIU'}{ 17 SPAZI}" 

: rem 

1 76 

6040 

RETURN 

: rem 

1 70 

7000 

REM 

: rem 

1 71 

701 0 

PRINTCHR?(147);TAB(14)"ISTRUZIONI" 

: rem 

1 1 1 

7020 

PRINTTAB(14);:FORJ=lTOl0:PRINTCHR$(101) ; : 

NEXT:PRINT 



: rem 

33 

7030 

PRINTCHR$(144);CHR$(42)CHR$(5)" RAPPRESENTA UNO 

SPAZ 


IO VUOTO." 

: rem 

21 6 

7040 

PRINTCHR$(17);CHR$(158);CHR$(119)CHR$(5)" 

RAPPRESENT 


A UNA PEDINA." 

: rem 

56 

7050 

PRINTCHR?(17);CHR$(28);CHR$(209);CHR$(5)" 

RAPPRESENT 


A LA PEDINA ROSSA." 

: rem 

1 1 3 

7060 

PRINT"{ 2 GIU'}{ 3 SPAZI}IL GIOCO:- SALTA 

CON UNA PE 


DINA SOPRA" 

: rem 

1 56 

7070 

PRINT"UN'ALTRA PER FINIRE IN UNO SPAZIO VUOTO." 




: rem 

1 71 

7080 

PRINT"LA PEDINA 'MANGIATA'{ 2 SPAZl}VERRA 

' CANCELLAT 


A. " 

: rem 

1 1 


7090 PRINT"CERCA DI RIMANERE CON UNA SOLA PEDINA." 

: rem 177 
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7100 PRINT"{ 2 GIU 1 }PER UN PUNTEGGICI 2 SPAZI}MIGLIORE 



{ 2 SPAZI}DEVI CERCARE" 

: rem 

108 

71 1 0 

PRINT"DI RESTARE CON LA PEDINA} 2 SPAZljROSSA SUL 



{RVS}13{OFF}." 

: rem 

1 3 

71 20 

PRINT"{GIU'}{ 2 DES}{RVS} PREMI SPAZIO 

PER RITORNARE 


AL MENU " 

: rem 

1 70 

71 30 i 

GOSUB6 

: rem 

1 29 

71 40 

IFQ$ =CHR$(32)THENi 000 

: rem 

1 80 

71 50 < 

GOT07130 

: rem 

209 

1 0000 

REM 

: rem 

21 3 

1 01 00 

C=0:R=0:FORJ=lTOl5 

: rem 

125 

10110 

IFA(J)<>0THENC=C+1 

: rem 

86 

1 01 1 5 

IFA(J)=2THENR=1 

: rem 

1 93 

1 01 20 

NEXT 

: rem 

51 

1 0200 

PRINT"{HOME}{GIU'}"C'RIMASTE" 

: rem 

1 32 

1 021 0 

PRINT 

: rem 

1 29 

1 0220 

IFC>3THENPRINT"NON VALUTATO!" 

: rem 

1 80 

1 0230 

IFC=3THENPRINT"ORDINARIO" 

: rem 

223 

1 0240 

IFC=2THENPRINT"BUONO" 

: rem 

187 

1 0250 

IFC=1ANDR=OTHENPRINT"MOLTO BUONO" 

: rem 

21 6 

1 0260 

IFC=1 ANDR=1 ANDPEEK (B ( 1 3) ) 081 THENPRINT 

"BRILLANTE 

: rem 

ti 

1 40 

1 0270 

IFC=1ANDR=1ANDPEEK(B(13))=81THENPRINT" 

GENIO ili” 
: rem 

136 

1 0280 

PRINT"{ 11 GIU'}{ 13 SPAZI}{HOME}" 

: rem 

154 

1 1 000 

PRINTTAB(26)"{RVS}N PER GIOCARE" 

: rem 

148 

1 1 01 0 

PRINT 

: rem 

1 28 

1 1 020 

PRINTTAB(26)"{RVS}F PER FINIRE" 

: rem 

81 

11100 

GOSUB6:IFQ$="N"THENRUN 

: rem 

21 8 

imo 

IFQ$ <>"F"THENl1100 

: rem 

30 

11120 

PRINT"{CLR}": END 

: rem 

106 


Daytona 

Con questo programmò potrai di¬ 
ventare un prestigioso pilota auto¬ 
mobilistico. 

Il tracciato su cui devi correre è 
quello famosissimo di DAYTONA. 
Precedenti incidenti hanno lasciato 
sulla strade pericolose macchie 
d'olio che possono trovarsi anche 


u 

_ %J 

nel mezzo di una curva terribile, in 
questo caso sta alla tua abilità di 
pilota riuscire ad evitarle. 

La macchina si sposta a sinistra e a 
destra usando i due tasti [CRSR], e 
viaggia alla velocità che sceglierai 
secondo la tua abilità (da 10 a 100 
Km/h). 
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1 o : 

REM"DAYTONA" 

: rem 

1 53 

20 : 

POKE56,4 8 :POKE52,48:CLR 

: rem 

23 

30 : 

REM 

: rem 

71 

40 

PRINT"{CLR}{ 12 GIU'}{ 10 DES}PER FAVORE ATTENDI.. 

:G 

OSUB1000 :GOSUBl080 

: rem 

241 

50 

REM 

: rem 

73 

60 , 

SC=1 024 :CO= 55296 

: rem 

20 

70 

SE=SC+3 69:SD=SC+4 0 9:POKE532 80,6 : POKE53 2 81 , 7 :rem 

167 

80 

REM 

: rem 

76 

90 

PRINT"{CLR}{BLK} { 12 SPAZI}*** DAYTONA 

***" :rem 

105 

1 00 

PRINT" { 3 GIU'H 8 SPAZI}PROVA LA TUA 

ABILITA'" 




: rem 

1 77 

1 1 0 

PRINT" { GIU' }{ 8 SPAZ I} DI GUIDA!" 

: rem 

1 40 

1 20 

PRINT" { 3 GIU'H 8 SPAZI } GUIDA USANDO 

I DUE TASTI 

VI 



: rem 

1 1 9 

1 30 

PRINT"{GIU' }{ 8 SPAZI}[CRSR] PER CURVARE." : rem 

1 49 

1 .40 

PRINT 

: rem 

34 

1 50 

R$ ( 1 )=" {RVS} £{ 8 SPAZI}{OFF} £" 

: rem 

5 

1 60 

R$(2)= " {RVS}[<W>]{ 7 SPAZI}[<Q>]{OFF} 

" : rem 

1 9 

1 70 

R$ (3)="[<*>] {RVS}{ 8 SPAZI} [<*>] {OFF} 

" : rem 

11 7 

1 80 

L= 5 

: rem 

87 

1 90 

KW=0 

: rem 

1 69 

200 

GOSUB630 

: rem 

1 71 

21 0 

MI = 0 

: rem 

1 50 

220 

REM 

: rem 

1 20 

230 

FORX=1TOI5 :PRINTTAB(5)+R$(2) :NEXTX 

: rem 

1 00 

240 

K=INT(RND(9)*3)-1 

: rem 

1 31 

250 

IF KW= KTHENGOTO 2 8 0 

: rem 

82 

260 

IFKW=1THENL=L+1:GOTO280 

: rem 

1 64 

270 

IFKW<1ANDK=1THENL=L- 1 

: rem 

37 

280 

LA=INT(RND(9)*9) 

: rem 

1 1 3 

290 

REM 

: rem 

1 27 

300 

FORX=1TOLA 

: rem 

1 1 2 

31 0 

AA=PEEK(197) 

: rem 

1 06 

320 

IFAA=2THENSE=SE+1 :SD = SD+1 

: rem 

1 4 

330 

IFAA= 7THENSE=SE-1 :SD = SD-1 

: rem 

24 

340 

POKESE,0 :POKESD,1 

: rem 

23 

350 

IFPEEK(SE-1)=320RPEEK(SE+1)=320RPEEK(SD-1)=320RPEEK(S 


D+1)=32THEN540 

: rem 

4 

360 

MI=MI+100-XXI 

: rem 

1 92 

370 

FORY=1TOXX% :NEXTY 

: rem 

1 46 

380 

L=L+K 

: rem 

230 

390 

POKESE,160 :POKESD,160 

: rem 

233 

400 

IFL<1THENL=1:K=0 

: rem 

1 83 

41 0 

IFL>29THENL=30:K=0 

: rem 

38 

420 

IFRIGHT?(TI$,1)< >"0"THEN460 

: rem 

237 

430 

LL= 4+ABS(K) 

: rem 

61 

440 

RP$ =LEFT$(R$(K+2) ,LL)+"{OFF} [< 2 +>]{ 

RVS}"+RIGHT?(R$( 


K+2 ) ,5) 

: rem 

1 87 

450 

GOTO470 

: rem 

1 09 

460 

RP$ =R$(K + 2) 

: rem 

1 2 
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470 

PRINTTAB(L);:PRINTRP$ 



: rem 

1 00 

480 

REM 



: rem 

128 

490 

IFPEEK(SE)=102ORPEEK(SD)=102THEN830 



: rem 

82 

500 

NEXTX 



: rem 

44 

51 0 

KW= K 



: rem 

1 92 

520 

GOTO240 



: rem 

1 02 

530 

REM 



: rem 

1 24 

54 0 

PRINT:PRINT"{RED}{ 6 SPAZl}£EI USCITO 

DI 

STRADA! ! 

i » 

• 





: rem 

1 80 

550 

PRINT 



: rem 

39 

560 

GOSUB730 



: rem 

1 81 

570 

GETA$:IFA$=""THEN570 



: rem 

91 

580 

IFA$ = "N"THEN9 80 



: rem 

48 

590 

IFA$ < >"S"THEN5 70 



: rem 

1 1 0 

600 

REM 



: rem 

1 22 

61 0 

RUN60 



: rem 

242 

620 

REM 



: rem 

124 

630 

PRINT:PRINT:PRINT:PRINT 



: rem 

1 23 

640 

PRINT"{ 6 SPAZI}A CHE VELOCITA' VUOI 

VI 


: rem 

61 

650 

PRINT"{ 6 SPAZI}VIAGGIARE?" 



: rem 

58 

660 

input"{ 6 spazi Iscrivi una velocita' 

TRA 

10-100 



{ 10 SPAZI}";XX% 



• : rem 

1 84 

670 

IFXX%<1OORXX%>1OOTHENPRINT"{ 2 SU}"; 

:GOTO660 : rem 

79 

680 

XX%=50-XX% 



: rem 

23 

690 

REM 



: rem 

1 31 

700 

POKE532 72,29:PRINT"{CLR}":GOSUBl 1 60: 

RETURN :rem 

1 54 

71 0 

REM 



: rem 

1 24 

720 

GOSUBl270 



: rem 

227 

730 

POKE532 72,21 :GOSUBl 270 :FORX=1T020 



: rem 

203 

740 

PRINT"{ 15 SPAZI}{SU} {WHT} {OFF}CRASH ! { 

6 

SIN}":FORYY= 


1TO50:NEXT 



: rem 

1 50 

750 

PRINT"{ 15 SPAZI}{SU}{RVS}{BLK}CRASH 

! { 

6 

SIN}":FORYY= 


1TO50:NEXT 



: rem 

1 62 

760 

NEXTX 



: rem 

52 

770 

REM 



: rem 

1 30 

780 

PRINT :PRINT :PRINT"{ 5 SPAZI}{BLK}HAI 

GUIDATO PER" 

? MI/ 


10000;"KM":PRINT"{ 5 SPAZI}A";50-XX% 

"KM/H 

" :rem 

1 57 

790 

PRINT:POKE5 3 2 72,21 



: rem 

40 

800 

PRINT:PRINT"{ 5 SPAZI}UN'ALTRA PARTITA?(S/N)" 






: rem 

227 

81 0 

RETURN 



: rem 

1 21 

820 

REM 



: rem 

1 26 

830 

LA=(40+K)*5:XS=40+K:PP=CO+(SE-SC) 



: rem 

107 

840 

FORX= OTOLASTEPXS 



: rem 

95 

850 

POKE(PP+X) ,1 :POKE(SE+X) ,81 



: rem 

7 

860 

NEXTX 



: rem 

53 

870 

POKE(PP+X-1) ,0 :POKE(PP+X+1) ,0 



: rem 

145 

880 

POKE(SE+X-1),42:POKE(SE+X+1),42 



: rem 

238 

890 

POKE(PP+X-39),0:POKE(PP+X-40),0 



: rem 

3 

900 

POKE(SE+X-39),42:POKE(SE+X-40),42 



: rem 

87 

91 0 

POKE(PP+X-41) ,0 :POKE(PP+X+41) ,0 



: rem 

244 
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920 

POKE(SE+X-41) ,4 2 :POKE(SE+X+41) 

,42 


: rem 

81 

930 

POKE(PP+X+40) ,0:POKE(PP+X+41), 

0 


: rem 

243 

940 

POKE(SE+X+40),42:POKE(SE+X+41) 

,42 


: rem 

80 

950 

PRINT:PRINT"{ 3 SPAZI}LA TUA AUTO 

SI E'DI STRUTTA!" 






: rem 

21 1 

960 i 

GOTO550 



: rem 

1 1 4 

970 

REM 



: rem 

1 32 

980 

PRINT"{CLR}{SU}:POKE532 80,1 4 

: POKE532 81 , 6 : 

POKE56, 

1 60 


:POKE52,1 60 :CLR:END 



: rem 

241 

990 

REM 



: rem 

1 34 

1 000 

POKE56333,1 27 



: rem 

1 86 

1 01 0 

POKEl,51 



: rem 

1 80 

1 020 

FORX=0TO2 04 8 



: rem 

224 

1 030 

POKEl 2 2 88+X,PEEK(532 4 8+X) 



: rem 

1 66 

1 040 

NEXT 



: rem 

4 

1 050 

POKEl,55 



: rem 

1 88 

1 060 

POKE56333,129 



: rem 

1 94 

1 070 

RETURN 



: rem 

1 68 

1 080 

FORA=OTOl5 



: rem 

1 03 

1 090 

READX 



: rem 

62 

1 1 00 

POKEl2288+A,X 



: rem 

230 

ino 

NEXT 



: rem 

2 

1 1 20 

RETURN 



: rem 

1 64 

1 1 30 

REM 



: rem 

1 69 

1 1 40 

DATAI 53,1 89,2 55,1 65,1 65,90,90 

,90 

,90,90,90, 

165,165 

,25 


5,189,153 



: rem 

8 

1 1 50 

REM 



: rem 

1 71 

1 1 60 

CH = 542 72 :FORLO=0TO24 :POKECH+LO,0 

: NEXT 

: rem 

85 

1 1 70 

POKECH+17,8 



: rem 

1 22 

1 1 80 

POKECH+6,240 



: rem 

1 67 

1 1 90 

POKECH+2 4,15 



: rem 

1 68 

1 200 

VL= 32 



: rem 

7 

1 21 0 

POKECH,0 



: rem 

21 8 

1 220 

POKECH+1,0 



: rem 

55 

1 230 

POKECH+4,VL+1 



: rem 

9 

1 240 

POKECH+1,1 



: rem 

58 

1 250 

RETURN 



: rem 

1 68 

1 260 

REM 



: rem 

1 73 

1 270 

FORL= 0TO2 4 :POKECH + L,0 :NEXT 



: rem 

1 79 

1 280 

POKECH+3,8 



: rem 

71 

1 290 

POKECH+5,32:POKECH+6,72 



: rem 

97 

1 300 

POKECH+24,15 



: rem 

161 

1 31 0 

POKECH+4,129 



: rem 

1 66 

1 320 

FORK=1TOI2 



: rem 

1 08 

1 330 

FORP=33TOlSTEP-9 :POKECH + 1,P:POKECH,P:NEXT 

: rem 

204 

1 340 

NEXT:FORDE=1TOI 000 :NEXT 



: rem 

252 

1 350 

FORL= 0TO24 :POKECH + L,0 :NEXT 



: rem 

178 

1 360 

RETURN 



: rem 

1 70 
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t 



u 



Gara di Boxe 


u 


Quante volte avete sosnato di es¬ 
sere un srande pusile e di sfidare 
sul ring i misliori campioni di boxe? 
Con questo simpaticissimo sioco 
per C64 potrete finalmente realiz¬ 
zare questo utopistico sogno. 
Potrete scegliere tra 10 avversari, 
dal grande pollo fino al supercam- 
pione. Con i tasti indicati dal pro¬ 


gramma muovetevi sul ring (visua¬ 
lizzato con vista dall’alto) e tirate, 
di destro e di sinistro, cercando di 
colpire l’avversario sulla testa, to¬ 
talizzando un punto ogni volta che 
riuscite a colpirlo, e tentando di 
metterlo K.O. con una raffica di 
montanti. E allora mano ai guantoni 
e buon divertimento!! 


5 Si=0:S2=Sl :V=53248:POKEV,0 :POKEV+1,0 :POKEV+2,0 :POKEV+3, 


0 


: rem 

252 

8 GOSUB7000:POKE53280,1 0:POKE53281 , 1 0 

: rem 

1 1 2 

1 0 

GOSUB2500 

: rem 

1 68 

1 5 

ROUND=1 :PRINTCHR?(8) ;:POKEV+21,3 

: rem 

1 48 

20 

GOSUB9 50 0 

: rem 

1 76 

62 

PRINT"{HOME}{ 10 GIU'}"TAB(33)RO 

: rem 

37 

63 

POKESO+15,37 :POKESO+4,21 

: rem 

90 

70 

X = 32:Y=60:TM=3:TS=1 :F=224 :G=220 :E = 0:POKE2040, 

195:POKE2 


041 , 1 92 :POKESO+4,20 

: rem 

1 74 

1 00 

POKEV,X :POKEV+1,Y:POKEV+2,F:POKEV+3,G 

: rem 

88 

1 30 

TS = TS-1 :IFTS = 0THENTM=TM-1 :TS = 60:IFTM=-1THENGOTO8500 


. 

: rem 

36 

1 50 

PRINT"{HOME}{ 5 GIU'}";:PRINTTAB(30)TM;":: 

IFTS<10TH 


ENPRINT"0" ; 

: rem 

105 

1 60 

PRINTTS 

: rem 

203 

400 

IFPEEK(653)=2THENGOSUBl000 

: rem 

22 

41 0 

IFPEEK(653)=1THENGOSUBl100 

: rem 

23 

450 

IFF<X+20THENIFRND(1)>SKTHENGOSUB2000 

: rem 

0 

500 

KE=PEEK(197) 

: rem 

1 21 

505 

Y=Y-8*((KE = 36ANDY< 220)-(KE=33ANDY>60) ) 

: rem 

1 09 

51 0 

X=X-8 *( (KE = 42ANDX< 224)- (KE=34ANDX>32) ) 

: rem 

1 02 

550 

F=F+8 *INT(RND(1) *2.5) ((F<X+4)- (F>X+4) ) *(F> 

32) * 

( F< 2 3 


2) 

: rem 

52 

552 

IFF<X+6THENF=X+6 

: rem 

209 

560 

G=G+8 *INT(RND(1)*2.5)*-((G<Y)-(G>Y)) 

: rem 

1 33 

563 

IFG=YTHENG=Y+8 *(INT(RND(1) *3)^1) 

: rem 

81 

565 

IFG>220THENG=220 

: rem 

1 43 

570 

IFE=0THENIFX>21 0THENE= 1 

: rem 

1 66 

580 

IFE>0THENE = E+(X< 1 00)+1 :IFE=10THENGOSUB3 000 

: rem 

240 

690 

REM SUONO 

: rem 

23 

700 

GOTOl00 

: rem 

97 
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1 000 

POKE2040,1 97 :POKESO+8,10 


: rem 

1 26 

1 020 

IFY<G+1 2ANDY>G+4THENIFX>F-12ANDX<F+4THENSl 

= Sl+1 : 

GOSU 


Bl200:POKESO+l1,33 


: rem 

1 21 

1 030 

IFS1=K2THENGOT06000 


: rem 

1 91 

1 040 

FORT=1T04 0 :NEXT 


: rem 

238 

1 050 

POKE2 04 0,1 95 :POKESO+11,0 


: rem 

1 22 

1 090 

RETURN 


: rem 

1 70 

1 1 00 

POKE2040,1 96 :POKESO+8,10 


: rem 

1 26 

1 1 20 

IFY<G-4ANDY>G-12ANDX>F-12ANDX<F+4THENSl 

= Sl+1 :GOSUBl2 


00:POKESO+n , 33 


: rem 

1 47 

1 1 30 

IFS1=K2THENGOT06000 


: rem 

1 92 

1 1 40 

FORT=1T04 0 :NEXT 


: rem 

239 

1 1 50 

POKE204 0,1 95 :POKESO+11,0 


: rem 

1 23 

1 1 90 

RETURN 


: rem 

1 71 

1 200 

PRINT"{HOME}{ 16 GIU'}"TAB(32)Si 


: rem 

200 

1 21 0 

RETURN 


: rem 

1 64 

2000 

IFG>YTHENG0T02100 


: rem 

90 

201 0 

POKE2041 , 1 94 :POKESO+8,12 


: rem 

1 28 

2020 

IFG>Y-12ANDG<Y-4THENIFF>XANDF<X+8THENS2 

=S2+1:GOSUB22 


00:POKESO+l1,33 


: rem 

245 

2035 

IFS2=KlTHENGOTO6500 


: rem 

202 

2040 

FORT=1T04 0 :NEXT 


: rem 

239 

2050 

POKE2041 , 1 92 :POKESO+11,0 


: rem 

1 21 

2090 

RETURN 


: rem 

1 71 

21 00 

POKE2041 , 1 93 :POKESO+8,12 


: rem 

1 27 

21 30 

IFG>Y+4ANDG<Y+12THENIFF>XANDF<X+8THENS2 

= S2 + 1 :GOSUB2 2 


00:POKESO+l1,33 


: rem 

243 

21 35 

IFS2=KlTHENGOTO6500 


: rem 

203 

2140 

FORT=1T04 0 :NEXT 


: rem 

240 

21 50 

POKE2041 , 1 92 :POKESO+11,0 


: rem 

1 22 

21 90 

RETURN 


: rem 

1 72 

2200 

PRINT"{HOME}{ 22 GIU'}"TAB(32)S2 


: rem 

48 

221 0 

RETURN 


: rem 

1 65 

2 500 

REM SUONO 


: rem 

63 

2505 

SO=54 2 72 :FORT=0TO2 8 :POKESO+T,0 :NEXTT 


: rem 

81 

251 0 

POKESO+1,146 :POKESO+5,7:POKESO+6,123:POKESO+l5,19:PO 


KESO+24,15 


: rem 

24 

2520 

POKESO+8,10 :POKESO+12,9:POKESO+1 3,123 


: rem 

228 

2550 

RETURN 


: rem 

1 72 

3000 

REM ALLE CORDE! 


: rem 

83 

301 0 

FORT=200TOl50STEP-1:POKEV,T:NEXTT 


: rem 

173 

3040 

E=0:X=T:RETURN 


: rem 

1 82 

6000 

X = X-10:F=F+10:POKEV+2,F:POKE2 041 , 1 98 :POKEV 

,X :POKESO+ 


11,0 


: rem 

147 

601 0 

POKESO+15,19:FORT=1TOT 0 :POKESO+4,21 :FORDL = 

1TOl00 

: NEX 


TDL:POKESO+4,20 


: rem 

243 

6020 

FORDL=1TOl00:NEXTDL:NEXTT 


: rem 

1 83 

6050 

PRINT"{HOME}{ 9 GIU'}"TAB(4)"BRAVO, L'HAI 

MESSO 

K. 0 • 


1 " 

• 


: rem 

1 1 3 

6060 

POKE2 04 0,1 99 :FORDL=1TO5000:NEXT 


: rem 

144 

61 00 

GOT0662 5 


: rem 

21 1 
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6500 

651 0 

6520 
6 550 

6600 

6625 

6630 

6640 

6650 

6660 

6700 

671 0 

6720 

6780 

6790 

6795 

6797 

6800 
6805 
681 0 

681 1 
6820 
6830 

6840 
7000 
71 00 

71 50 
7200 

7500 

7501 

7502 

7503 


X = X-10 :F = F+10:POKEV,X:POKE2 04 0,1 98 :POKEV+2,F:POKESO+ 
1 1 / 0 : rem 1 51 

POKESO+15,19 :FORT=1TOl0:POKESO+4,21 :FORDL=lTOl00:NEX 
TDL:POKESO+4,20 : rem 248 

FORDL=1TOl00 :NEXTDL:NEXTT : rem 188 

PRINT"{HOME}{ 7 GIU'}{ 3 DES}PECCATO, TI HA MESSO K. 


O. !" : rem 

POKE2 041 ,199:FORDL=lT0500 0:NEXT : rem 

POKEV+21 ,0 :PRINT"{CLR}"; :IFKl=S20RS2>SlTHEN6700 

: rem 

PRINT"BRAVISSIMO, HAI BATTUTO "B$(XX):PRINT" 


1 1 3 
145 


{ 14 SPAZI}IN "RO" ROUND." 


: rem 

1 00 

PRINT"{GIU'}IL RISULTATO IN PUNTI E': 

":PRINTS1 " 

PER 

TE":PRINT"E "S2" PER "B$(XX) 


: rem 

81 

PRINT"{GIU'}TI INVITO A BATTERTI CON 

UN AVVERSARIO 

{ 17 SPAZI}PIU' BRAVO." 


: rem 

1 1 

GOTO6780 


: rem 

224 

PRINT"{GIU' }PECCATO ! !" :PRINTB$(XX)" TI HA 

BATTUTO":P 

RINT"IN "RO" ROUND!!" 


: rem 

252 

PRINT"{GIU'}IL RISULTATO IN PUNTI E': 

":PRINTS1" 

PER 

TE":PRINT"E "S2" PER "B$(XX) 


: rem 

79 

PRINT"{GIU'}TI INVITO A BATTERTI CON 

UN AVVERSARIO 

{ 17 SPAZI}MENO ABILE!" 


: rem 

249 

PRINT"{GIU'} ECCO LA LISTA DEI PUGILI 

CHE 

SCALPITANO 

{ 6 SPAZI}PER SALIRE SUL RING." 


: rem 

20 

FORF= 1 TOl 0 : PRINTF" . :IFFOl 0THENPRINT" 

H • 

• i 




: rem 

222 

PRINTB$(F):NEXTF:POKEl98,0 


: rem 

139 

INPUT"SCEGLI L'AVVERSARIO O SCRIVI 0 

PER 

FI- 


{ 2 SPAZI}NI RE."; XX :IFXX< >0THEN6 810 

: rem 

239 

PRINT"{CLR}{ 4 GIU 1 }CIAO!": END 


: rem 

196 

REM 


: rem 

1 83 

PRINT"{CLR}{ 3 GIU'} PREPARATI A LOTTARE 

CONTRO 

" : PR 

INTB$(XX) 


: rem 

109 

PRINT"{GIU'}PREMI UN TASTO PER PARTIRE.." 

: rem 

1 83 

GETW$:IFW$=""THEN6820 


: rem 

239 


Sl=0:S2 = 0:SK=(ll-XX)/I2 :K2 = l0+XX+INT(RND(1) *6) : Kl =1 6 


1 7 
1 1 3 
1 0 
6 LE 
244 
1 43 
104 


-XX+INT(RND(1)*10) ; rem 
GOTO!5 : rem 
RESTORE:REM TITOLI E PRESENTAZIONE :rem 

PRINT"{CLR}{ 7 GIU 1 }DIGITA IL TUO NOME (MASSIMO 
TTERE)." :rem 

INPUTC$: IFLEN(C$) >6THEN7100 :rem 
PRINT"{CLR}"; :re m 

DATA"HENRY{ 2 SPAZI}IL POLLO","ARNOLD LA SCHIAPPA"," 
RONALD L'INCAPACE" : rem 168 
DATA"PHILIP IL MEDIOCRE" : rem 206 
DATA"ANDREW IL DISCRETO","ROGER{ 2 SPAZI}PUGNO DI FE 
RRO","BRIAN{ 2 SPAZI}LO SPACCAMURI" : rem 193 
DATA"SIMON{ 2 SPAZI}IL MOSTRO","EDWARD LA BESTIA","P 
AUL{ 3 SPAZI}IL SUPERCAMPIONE" : rem 170 
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751 0 
7520 
7522 

7524 

7525 

7530 

7535 

7540 

7545 

7546 

7550 

7560 

7562 

7564 

7566 

7570 

7575 

7580 

7590 

7595 

8500 

8505 

851 0 
8520 
8530 
8540 

8550 

8560 

8565 

8570 

8575 

8580 

8585 

8590 


1 24 
DI 
77 

21 8 


PRINT"{GIU'}{ 4 SPAZI}S F I D A{ 3 SPAZI}S U L 
{ 3 SPAZI}R I N G ! !" : rem 

PRINT”{ 4 GIU'}{ 3 SPAZI}VUOI DIVENTARE CAMPIONE 
BOXE ??” : rem 

PRINT"IN QUESTO CASO QUESTO GIOCO FA PER TE ! 1" 

: rem 

PRINT”{ 2 GIU’jQUALE AVVERSARIO VUOI AFFRONTARE PER 
{ 3 SPAZI}” : rem 81 

PRINT"PRIMO ? SCEGLILO TRA QUESTI 10 ." 

: rem 

FORF= 1 TOl 0 : READA$ : PRINTF"_" ; 2 IFFOl OTHENPRINT" 

: rem 

PRINTA$:B$(F)=A$:NEXTF :rem 

INPUTXX:IFXX<10RXX>1OTHENPRINT"{ 2 SU}”:GOT07540 

: rem 

SK=(11-XX)/12 : rem 

K2 = l0+XX+INT(RND(1)*6):Kl=16-XX+INT(RND(1)*10) 

: rem 

B$=LEFT$(B$(XX),6) : rem 

PRINT"{CLR}":PRINT"{GIU'}BENISS IMO, IL TUO AVVERSARI 
O SARA'":PRINTTAB(14)B$(XX) : rem 191 

PRINT"{GIU'}{CYN}{ 4 SPAZl}OGNI LOTTA SI COMPONE DI 
3 ROUND" : rem 251 

PRINT"{GIU'{MUOVITI SUL RING CON I TASTI{WHT} IMJL 
{CYN} E" : rem 204 

PRINT"COLPISCI CON I TASTI {WHT}CBM{CYN} (MANO SIN.) 
{ 2 SPAZI}E {WHT}SHIFT{CYN} (MANO DES.)." : rem 210 

PRINT"OGNI COLPO IN TESTA FRUTTA PUNTI ED E' 

{ 2 SPAZI}POSSIBILE IL KNOCK OUT!!" : rem 176 

GOSUB9000 : rem 33 

PRINT"{YEL}{ 4 SPAZI}* PREMERE UN TASTO PER PARTIRE 

21 1 
251 
1 86 
91 


I 25 

II • 

1 46 
94 

75 
21 0 

1 36 
221 


II 


GETX$:IFX$ = ""THEN7590 
RETURN 

REM FINE ROUND 

PRINT"{HOME}{ 5 GIU'}"TAB(29)" 
POKESO+4,21 

POKE2040,192:POKE2041,195 
FORT=lTO500:NEXT:POKESO+4,20 


0 


: rem 
: rem 
: rem 
: rem 

00{ 2 SPAZI}” 

: rem 
: rem 
: rem 
: rem 


1 72 
1 41 
1 35 
34 


X = X+4*(X>32) :Y=Y+4 *(Y>60) :F = F-4*(F<224) :G=G-4 *(G<220 


) :rem 

POKEV/X :POKEV+1 ,Y : rem 

POKEV+2 r F:POKEV+3,G : rem 

POKE2 04 0,1 92 :POKE2041 ,195 :rem 

IFX<=32ANDY<=60ANDF>=224ANDG>=220THEN8580 :rem 
GOTO8540 : rem 

ROUND = ROUND+ 1 :IFROUND = 4THENROUND = 3:GOTO66 2 0 : rem 
POKESO+! 5, 1 9 : FORT= 1 TOl 0 : POKESO+4,21 :rem 

PRINT"{HOME}{ 9 GlU 1 }"TAB(7)”PRONTI ALLA LOTTA" 
TTAB(7)" * NUOVO ROUND * " : rem 


1 32 
1 23 
1 83 
1 44 
253 
227 
168 
178 
PRIN 
77 


16 



8595 

8600 

8605 
861 0 
8620 
9000 
901 0 
91 00 

9400 
9500 
951 0 
9520 

9530 

9535 

9540 

9600 

9605 
9650 
2001 0 
2001 2 
2001 3 
2001 4 
2001 5 
2001 6 
2001 7 
20020 
20022 

20023 

20024 

20025 

20026 
20027 
20030 

20032 

20033 

20034 

20035 

20036 

20037 
201 00 
201 02 
201 03 
201 04 


# 


FORDL=lT0200:NEXTDL:POKESO+4,20 

: rem 

246 

PRINT"{HOME}{ 9 GIU'}"TAB(7)"{ 17 SPAZI}" 

:PRINTTAB(7 

)"{ 17 SPAZI}" 

: rem 

88 

FOROL=1T0200 :NEXTDL 

: rem 

246 

NEXTT 

: rem 

98 

G0T062 

: rem 

1 1 3 

REM LEGGE I DATI PER GLI SPRITE 

: rem 

22 

FORT=0TO511 :READA:POKEl 92*64+T,A:NEXTT 

: rem 

149 

POKE2040,192:POKE2041,195:POKEV+39,0:POKEV+40,7 



: rem 

229 

RETURN 

: rem 

1 73 

REM DISEGNA IL RING 

: rem 

1 1 4 

AA$ = "[< + >] ":BB$=AA$ 

: rem 

97 

FORT=1T027:AA$=AA$+"[<+>]":BB$=BB$+" ":NEXTT 



: rem 

96 

PRINT"{CLR}"TAB(8)"PUNTI "TAB(18)"PUNTI " 

TAB(32) 

" TEM 

PO" 

: rem 

36 

AA$ =AA$ + "[< + >]":BB$ =BB$ + "[< + >] " 

: rem 

80 

PRINT"{CLR}"AA$:FORT=0TO22:PRINTBB$:NEXTT 

:PRINTAA$; 


: rem 

1 69 

PRINT"{HOME}"SPC(152)"TEMPO"SPC(195)"ROUND"SPC(155)" 

PUNTI {GIU'}"SPC(34)LEFT$(C$,6) 

: rem 

1 71 

PRINT"{ 4 GIU'}"TAB(32)LEFT$(B$(XX),6) 

: rem 

223 

RETURN 

: rem 

1 80 

REM *** BOXER A SINISTRA *** 

: rem 

1 

DATA0,56,0,0,127,252,0,127,254,0,167,2 

: rem 

1 34 

DATA0,127,2,0,56,63,0,0,127,0,0,127 

: rem 

232 

DATA0,0,99,0,0,65,0,0,0,0,0,0 

: rem 

1 78 

DATAO,0,65,0,0,99,0,0,127,0,56,127 

: rem 

1 94 

DATAO, 127,63,0,127,2,0,127,254,0,127,252 

: rem 

238 

DATAO,56,0,0 

: rem 

1 47 

REM *** BOXER A SIN. PUGNO A DESTRA *** 

: rem 

58 

DATAI 12,0,0,255,255,252,255,255,254,254, 

0,2 



: rem 

1 37 

DATA2 54,0,1 8,1 12,0,62,0,0,127,0,0,99 

: rem 

33 

DATAO,0,65,0,0,65,0,0,1,0,0,65 

: rem 

232 

DATAO,0,65,0,0,99,0,0,126,0,56,62 

: rem 

1 44 

DATAO, 1 27,18,0,127,2,0,127,254,0,127,252 

: rem 

239 

DATAO,56,0,0 

: rem 

148 

REM *** BOXER A SIN. PUGNO A SIN. *** 

: rem 

1 44 

DATAO, 56,0,0,1 27,252,0,127,254,0,127,2 

: rem 

1 32 

DATAO,127,18,0,56,62,0,0,127,0,0,99 

: rem 

248 

DATAO,0,65,0,0,65,0,0,1,0,0,65 

: rem 

233 

DATAO,0,65,0,0,99,0,0,127,112,0,62 

: rem 

1 87 

DATA254,0,1 8,2 54,0,2,2 55,2 5 5,2 54,2 55,2 55 

,252 



: rem 

206 

DATAI 12,0,0,0 

: rem 

1 90 

REM *** BOXER A DES. *** 

: rem 

1 58 

DATAO, 56,0,63,2 52,0,1 27,252,0,65,252,0 

: rem 

1 35 

DATA7 3,2 52,0,1 24, 56,0,126,0,0,1 98,0,0 

: rem 

84 

DATAI 31,0,0,131,0,0,129,0,0,131, 0,0 

: rem 

208 


17 


201 05 

DATAI 71 ,0,0, 1 98,0,0,2 54,0,0,1 24,56,0 

: rem 

30 

201 06 

DATA73,252,0,65,252,0,127,252,0,63,252,0 

: rem 

243 

201 07 

DATAO,56,0,0 

: rem 

1 47 

201 1 0 

REM *** BOXER A DES. PUGNO A DES. *** 

: rem 

11 5 

201 1 2 

DATAO,28,0,63,254,0,127,254,0,64,254,0 

: rem 

1 40 

201 1 3 

DATA72,126,0,1 24,28,0,126,0,0,1 98,0,0 

: rem 

83 

201 1 4 

DATAI 31,0,0,131,0,0,129,0,0,131,0,0 

: rem 

209 

201 1 5 

DATAI 31,0,0,1 98,0,0,126,0,0,124,0,14 

: rem 

1 9 

201 1 6 

DATA72,0,63,64,0,127,123,255,255,63,255,255 

: rem 

1 57 

201 1 7 

DATAO,0,14,0 

: rem 

1 42 

201 20 

REM *** BOXER A DES. PUGNO A SIN. *** 

: rem 

1 30 

201 22 

DATAO,0,14,63,255,255,127,255,255,64,0,127:rem 

97 

201 23 

DATA72,0,63,124,0,14,126,0,0,198,0,0 

: rem 

31 

201 24 

DATAI 31,0,0,131,0,0,129,0,0,131 ,0,0 

: rem 

21 0 

201 25 

DATAI 31,0,0,1 98,0,0,126,0,0,124,28,0 

: rem 

25 

201 26 

DATA72,126,0,64,254,0,127,254,0,63,254,0 

: rem 

249 

201 27 

DATAO,28,0,0 

: rem 

1 48 

201 30 

REM *** PERDENTE *** 

: rem 

45 

201 32 

DATAO,0,0,0,0,24,0,0,24,0,48,8 

: rem 

230 

201 33 

DATAI,241,248,2,49,0,2,1,0,2,1,0 

: rem 

82 

201 34 

DATAI 15,253,0,251,255,0,255,254,0,255,254 

,0 

: rem 

1 39 

201 35 

DATA251,255,0,115,252,128,2,0,64,2,0,126 

: rem 

239 

201 36 

DATA98,0,2,124,0,6,96,0,6,0,0,0 

: rem 

47 

201 37 

DATAO,0,0,0 

: rem 

91 

201 40 

REM *** VINCENTE *** 

: rem 

51 

201 42 

DATAI!2,0,224,112,0,224,32,240,64,33,248, 

64 

: rem 

1 30 

201 43 

DATA3 5,1 08,64,35,108,64,35,252,64,19,12,128 

: rem 

1 61 

201 44 

DATA9,249,0,4,242,0,3,252,0,3,252,0 

: rem 

245 

201 45 

DATA3,252,0,1,248,0,0,240,0,1,152,0 

: rem 

228 

201 46 

DATAI,152,0,3,156,0,1,152,0,13,155,0 

: rem 

27 

201 47 

DATAI 5,159,0,0 

: rem 

1 


) 


i 
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I 



Invasori!! 



Ecco una nuova versione del cele¬ 
berrimo sioco Invaders che per 
primo ha troneggiato nei bar e nel¬ 
le sale giochi di tutto il mondo, fa¬ 
cendo impazzire milioni di incalliti 
"neo videogioca toh 
Per provarlo è sufficiente disporre 
di un C64 e di molta abilità, svel¬ 
tezza e mira. 

Il gioco è un classico e basta dire 


che è necessario abbattere il mag¬ 
gior numero di invasori possibile, 
evitando le bombe (simili a dentie¬ 
re impazzite!!) che essi lanciano 
verso la vostra astronave. 

Il gioco termina quando finite le 
vostre 3 vite o quando gli alieni 
raggiungono il suolo. 

Ed ora buon divertimento!! 


5 POKE53280,6 

9 GOTO9000 

10 GOSUBl000:PRINT"{CLR}" 

11 FORA= 552 96T056296 :POKEA,0 :NEXT 

12 DEFFNK(X)=X-1023-INT((X-1024)/40)*40 

13 POKE49408,0:SC=0:DL=.9:LV=3 
20 REM ROUTINE PRINCIPALE 

30 GOSUB2000:IFLSTHENLV=1:GOTO7000 
40 GOSUB6000 

50 B=1145+INT(37*RND(1)+1):IFRND(0)>DLTHENPOKEB 

51 SYS4921 9 :IFPEEK(49408)>2 52THEN70 00 

52 GOSUB6000 

55 IFQ=60THEN7500 
70 GOSUB5000 
80 GOSUB6000 
85 SYS49219 
90 GOTO20 
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: rem 

0 

: rem 

0 

: rem 

200 

: rem 

59 

: rem 

64 

: rem 

0 

: rem 

105 

: rem 

239 

: rem 

83 

: rem 

1 34 

: rem 

36 

1 70 

: rem 

1 57 

: rem 

1 31 

: rem 

1 73 

: rem 

232 

: rem 

1 72 

: rem 

1 74 

: rem 

1 1 7 

: rem 

4 

: rem 

48 

: rem 

23 

: rem 

37 

: rem 

1 2 

: rem 

0 

: rem 

254 

: rem 

44 

: rem 

36 

: rem 

81 

: rem 

1 85 


io 








1 067 

FORA=0TO4:R(A)=0 :NEXT 

r rem 

62 

1 070 

Z$="{ 39 SPAZI}" 

r rem 

1 99 

1 080 

G=21 :G$ = "{HOME}{ 21 GIU'}" 

r rem 

78 

1 090 

A$ = "{RVS} [<B>] [<V>] [<X>] {HOME}" 

r rem 

1 5 

1 500 

RETURN 

r rem 

1 66 

2000 

REM MUOVE GLI INVASORI 

r rem 

1 21 

2005 

IFQ=60THENRETURN 

r rem 

89 

201 0 

R=R+1:IFR=5THENR=0:C=C+V:IFC=0 OR C=12THENGOSUB3000: 

§ 

V=-V 

r rem 

1 84 

2020 

IFI(R)=0THEN2 010 

r rem 

1 58 

2025 

R(R)=R(R)+V:IFR+0=16THENLS= 1 

r rem 

230 

2030 

PRINTP$LEFT$(V$,R+0)Z$ 

r rem 

86 

2040 

PRINTP$ LEFT$ ( V$ , R+O) TAB (R (R) )CHR$ (C (R) ) 1$ (R) 




r rem 

62 

2050 

RETURN 

r rem 

1 67 

3000 

REM GLI INVASORI SCENDONO! 

r rem 

1 04 

301 0 

FORI=0TO4:IFI(I)THENPRINTP$LEFT$(V$,I+O)Z$ 

r rem 

1 55 

3020 

NEXT:0=0+1 :RETURN 

r rem 

1 43 

5000 

REM MUOVE IL CANNONE 

r rem 

204 

5010 

K=PEEK (197) : REM IFK= 64TLEFT$RETGOTO 

r rem 

203 

501 1 

IFK=60ANDM=0THENM=1 705+G:POKEM,30 : RETURN 

r rem 

40 

501 5 

PRINTG$TAB(G)"{ 6 SPAZI}{SU}" 

r rem 

7 

5020 

IFK=4 7ANDG> 1 THENG=G- 1 

r rem 

42 

5030 

IFK=44ANDG< 30THENG = G+1 

r rem 

86 

5040 

PRINTTAB(G)A$:RETURN 

r rem 

68 

6000 

REM MISSILE 

r rem 

1 92 

6001 

IFM=0THENRETURN 

r rem 

31 

6005 

IFM<1144THENPOKEM,32:M=0: RETURN 

r rem 

247 

601 0 

IFPEEK(M)< > 3 0THEN60 30 

: rem 

238 

6020 

POKEM,32:M=M-40:IFPEEK(M)= 32THENPOKEM,30 : RETURN 



- 

: rem 

249 

6030 

IFPEEK(M)=36THENPOKEM,32 :M=0: RETURN 

: rem 

11 

6031 

IFPEEK(M)=37THENPOKEM,32:M=0 rRETURN 

: rem 

13 

6035 

IFPEEK(M)=32THEN6020 

: rem 

1 85 

6040 

IFPEEK(M)=160THENPOKEM,32 :M=0 : RETURN 

: rem 

58 

6050 

K = FNK(M) :H = PEEK(M)-81 :T(H)=T(H)- 1 :Q=Q+1 :IFT(H)=0THEN 


I(H)=0 

: rem 

1 73 

6055 

K = K-R(H) :SC = SC+INT ( (5-H) *1 0/DL) :GOSUB9600 

: rem 

147 

6056 

PRINT"{HOME}PUNTI :"SC;"{ 5 SPAZI}"; :FORN=1TOLV:PRINT 


"{BLK}{RVS}[<B>][<V>][<X>]{OFF}{ 6 SPAZI}{ 

5 SIN} 

H • . 

§ • 


NEXT 

: rem 

47 

6057 

IFK=0THENI$(H)="{ 2 SPAZI}"+RIGHT$(1$(H),21):POKEM,3 


6 :M= 0rRETURN 

: rem 

21 9 

6058 

IFK=23THENI$(H)=LEFT$(1$(H),22)+" ":POKEM,36:M=0: 

RET 


URN 

: rem 

1 91 

6060 

1$ (H) =LEFT$ (1$ (H) , K- 1 ) +" "+RIGHT$ (1$ (H) ,23- 

K):POKEM, 


36:M=0rRETURN 

: rem 

1 27 

7000 

REM MORTE 

: rem 

50 

701 0 

REM SUONO 

: rem 

64 

7020 

GOSUB9600 

: rem 

24 


20 


7030 

FORN=lT03000:NEXT 

: rem 

76 

7200 

LV=LV-1 :IFLV<1THEN7 3 00 

: rem 

1 21 

7202 

PRINT”{HOME}"Z$ 

: rem 

45 

7205 

POKE4 94 0 8,0 

: rem 

98 

721 0 

GOTO20 

: rem 

101 

7300 

PRINT"{HOME}{ 2 GIU'H 

15 DES}{BLK}FINE GIOCO" 

: rem 

1 66 


731 0 

731 5 
7320 
7330 
7500 
7550 
7560 
7570 

9000 

9001 


PRINT"{GIU'}{WHT}PREMI LA BARRA SPAZIO PER GIOCARE A 


NCORA" 

WAITl 97,64 :POKEl98,0 
GETA$:IFA$<>" "THEN7320 
RUN1 0 

REM NUOVA PARTITA 

GOSUBl 00 0:Q=0:LS = 0 SPRINT"{CLR}" 

FORA= 5 52 96T0562 95 :POKEA, 0 :NEXT 

DL=DL/1 .2 :LV=LV+1 :GOTO20 

REM SCHERMATA DI PRESENTAZIONE 

PRINT"{CLR}{ 3 GIU'JGLI INVASORI 


11 


: rem 143 
: rem 163 
:rem 248 
:rem 35 
:rem 78 
: rem 2 38 
: rem 1 1 1 
:rem 220 
: rem 185 

STANNO ARRIVANDO_ 

:r em 2 37 


9002 

9003 

9004 

9005 

9006 

9031 

9032 

9033 

9034 

9035 
9040 
9050 

9060 
9070 
9080 
9090 
91 00 
91 1 0 
91 20 
91 30 
91 40 
91 50 
91 60 
9600 
9605 


PRINT"{ 3 GIU '}{ 7 SPAZI}{ 3 R}{ 2 SPAZI}{ 5 Q} 

{ 4 U}{ 2 SPAZI}{ 5 S} { 3 T}" : rem 73 

PRINT"{ 3 GIU 1 }{ 4 SPAZI}DIFENDITI CONTRO IL PERICOL 


O ! ! !{ 3 GIU'}" 


: rem 

1 89 

PRINT"{ 2 GIU’H 4 DES}{BLK}{RVS}[<B>][<V>][<X>] 

II 



: rem 

1 6 

PRINT"{GlU'} - SIN.{ 2 SPAZI}'.' - 

DESTRA" 


• 


: rem 

21 9 

PRINT"{GIU'}{DES} SPAZIO{ 2 SPAZI}- FUOCO" 

: rem 

77 

POKE52,48:POKE56,48:CLR 


: rem 

1 30 

POKE56334,PEEK(5633 4)AND2 54 :POKEl,PEEK(1 ) AND2 51 




: rem 

239 

FORI = 0TO512 :POKEl 2288 + 1,PEEK(53248 + 1) : 

NEXT 

: rem 

30 

POKEl ,PEEK ( 1)OR4:POKE56334,PEEK(56334)ORl 

: rem 

191 

POKE532 72,(PEEK(53272)AND2 40) +1 2 


: rem 

240 

READL:IFL = -1THENl 0000 


: rem 

5 

FORA=0TO7:READD:POKEl2288+L*8+A,D:NEXT 

:GOTO9040 




: rem 

1 79 

DATA81,60,66,129,195,126,36,66,129 


: rem 

201 

DATA8 2,60,66,1 29,1 95,126,36,66,129 


: rem 

203 

DATA8 3,24,24,1 02,129,189,90,60,231 


: rem 

1 84 

DATA84,24,36,36,60,1 26,126,255,1 53 


: rem 

1 89 

DATA85,165,165,183,126,60,90,195,195 


: rem 

43 

DATA2 55,0,0,0,7,7,1 5,255,2 55 


: rem 

125 

DATA254,24,24,60,2 55,2 55,2 55,2 55,2 55 


: rem 

31 

DATA253,0,0,0,2 24,224,240,25 5,2 55 


: rem 

1 1 1 

DATA30,24,24,24,24,60,60,60,126 


: rem 

1 4 

DATA3 6,255,60,24,60,102,195,1 65,66 


: rem 

1 86 

DATA37,2 55,60,2 4,24,24,60,60,60 


: rem 

26 

POKE54 276,1 28:POKE54 2 96,0 


: rem 

1 56 

POKE54277,59 :POKE54278,1 3:POKE54 2 96,1 5 

:POKE542 73 

,30: 

POKE54272,30 


: rem 

167 


21 





9610 

POKE54 2 76,1 29 : RETURN 

: rem 

233 

9999 

DATA-1 

: rem 

92 

1 0000 

REM-ROUTINE DI BOMBA 

: rem 

233 

1 001 0 

DATAA2,00,A9,00,95,FB,A9,04,95, 

FC :rem 

1 6 

1 0020 

DATAE6,FB,D0,02,E6,FC,A5,FB,C9, 

70 :rem 

87 

1 0030 

DATAD0,07,B5,FC,C9,07,00,01,60 

: rem 

1 03 

1 0040 

DATAAl,FB,C9,24,D0,E7,A9,20,81, 

FB :rem 

52 

1 0050 

DATAI8,A5,FB,69,28,85,FD,A5,FC 

: rem 

1 66 

1 0060 

DATA69,00,85,FE,Al,FD,OD,00,C1, 

8D, 00,CI,A9,2 5,81 

,FD 



: rem 

21 2 

1 0071 

DATAI8,90,C7,AE,3D,C0,AD,2 0 ,C0 , 

8D,3D,C0,8E,20,CO 

, 20 


,00,CO,60,* 

: rem 

234 

1 0080 

S9 = 4 9152 

: rem 

1 99 

1 0090 

READA$:IFA$ = "*"THENi 0 

: rem 

228 

1 01 00 

L$=LEFT$(A$,1) :H$ =RIGHT$(A$,1 ) 

: rem 

1 53 

10110 

L=VAL(L$):H=VAL(H$) 

: rem 

1 27 

1 01 20 

IFASC(L$)>64THENL=ASC(L$)-55 

: rem 

1 70 

10130 

IFASC(H$)>64THENH=ASC(H$)-55 

: rem 

1 59 

1 01 40 

POKES9,L*16+H:S9=S9+lrGOTOl0090 

: rem 

1 33 




Il corridore 


Joystick opzionale 


Dopo aver dato RUN passeranno 
circa due minuti prima che accada 
qualcosa. Il computer deve prima 
spostare la memoria di schermo e 
settare i caratteri. 

Il gioco ha luogo in un labirinto. 
Fine ultimo è piazzare il maggior 
numero di punti muovendosi con 
il proprio corridore. 

Due elementi stanno tentando di 
non farti fare un punteggio troppo 
alto: 

1. Il computer ha un suo corridore 
che piazza punti e compete con 
te, se passa sui tuoi punti li cancel¬ 
la e gli sostituisce i suoi. 

2. Un ragno si muove nel labirinto 


cercando di ammazzare il tuo cor¬ 
ridore. Una collisione con lui sareb¬ 
be fatale. 

Finito il tempo (80 secondi) il gio¬ 
catore dispone di un bonus, un 
tempo extra, pari ad un secondo 
ogni dieci punti realizzati. 

Per giocare si può usare o il joystick 
o la tastiera: IQ] sopra, [A] sotto, 
[,] sinistra, [.] destra. 

Alla fine del gioco dovrai scrivere 
il tuo nome, quindi apparirà la ta¬ 
vola dei record. 

Buona fortuna e... non sperare di 
diventare Spiderman se viene mor¬ 
so dal ragno. 
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1 


3 

4 

5 

9 
1 0 
20 
30 
40 
45 
50 
90 
1 00 
200 
250 
275 


PRINT"{CLR}{ 3 DESjPER FAVORE ATTENDI ALCUNI MINUTI 

: rem 

POKE56333,1 27 :POKE56,67 :POKEl,51 :Z = 24576:X=53248 

: rem 

Y=PEEK(X)::X=X+1:IFX=57344THEN5 :rem 

POKEZ,Y:Z=Z+1 :G0T03 : rem 

POKEl ,55 :POKE56576,6 :POKE53272,25 :POKE648,68 :POKE563 
129 : rem 

FORI = 2 5304T02 53 51 :READA:POKEl,A:NEXT : rem 

DIME$(10) ,N$(10) ,PU(10) :N$(0)="COMPUTER" : rem 

BO=0:DI = 37888 : rem 

F0RI = 828T0986:READA:POKEl,A:NEXT : rem 

F0RI = 996T01012 :READA:POKEI,A:NEXT : rem 

GOSUB50000 :rem 

SI = 54272 :POKES1 + 5,0 :POKES1 + 6,240 :POKES1 + 24,1 5:rem 
PRINT"{CLR}":POKE532 80,1 :POKE532 81 , 1 : rem 

PRINT"[< 39 ->]" : rem 

FOR1 = 1TO 5 :rem 

PRINT"[<->]{ 37 SPAZI}[<->]" :rem 

PRINT"[<->]{SPAZI}[< 3 ->]{SPAZI}[< 3 ->]{SPAZI} 

[< 3 ->]{SPAZI}[< 3 ->]{SPAZI}[< 3 ->]{SPAZI} 

[< 3 ->]{SPAZI}[< 3 ->]{SPAZI}[< 3 ->]{SPAZI} 


[< 3 ->] {SPAZI}[<->]" : rem 

276 PRINT"[<->]{SPAZI}[< 3 ->]{SPAZI}[< 3 ->]{SPAZI} 
[< 3 ->]{SPAZI}(< 3 ->]{SPAZI}[< 3 ->]{SPAZI} 

[< 3 ->]{SPAZI} [ < 3 ->]{SPAZI}[< 3 ->]{SPAZI} 

[< 3 ->] {SPAZI}[<->]” : rem 

277 PRINT”[<->]{SPAZI}[< 3 ->]{SPAZI}[< 3 ->]{SPAZI} 


I » 

82 

1 1 4 
29 
1 1 1 
33/ 
220 
1 1 8 
70 
118 
235 
1 5 
222 
83 
94 
230 
8 
32 


1 55 


\ 

1 56 



[< 3 ->]{SPAZI}[< 3 ->]{SPAZI}[< 3 ->]{SPAZI} 

[< 3 ->]{SPAZI}[< 3 ->]{SPAZI}[< 3 ->]{SPAZI} 



[< 3 ->] {SPAZI} [<->]” 

: rem 

1 57 

280 

NEXT ■ 

: rem 

21 7 

290 

PRINT"[<->]{ 37 SPAZI} [<->]" 

: rem 

36 

300 

PRINT"[<•39 ->]" 

: rem 

232 

390 

X 

X 

II 

00 

o 

• • 

c 

ii 

o 

• • 

o 

II 

o 

• • 

o 

II 

o 

: rem 

1 75 

400 

PO=1 7490:POKEPO,91 :POKEPO+DI,0 

: rem 

47 

500 

P5=1:P4=32 

: rem 

232 

1 000 

AN=1 7489:X(0)=40 : X(1 )=-40:X(2)=1 :X(3) =-l 

: rem 

100 

1 005 

SP=18325 

: rem 

1 69 

1 01 5 

TI$ = "000000":POKEl010,149 :POKEl 011 ,71 

: rem 

222 

1 020 

LC = AN:POKES1 + 1 ,46 :POKES1 + 4,0 

: rem 

21 3 

1 030 

AN=AN+X (0). 

: rem 

35 

1 040 

GOSUBl0010 : IFPEEK(AN+X(0) ) =9 2THEN104 0 

: rem 

1 65 

1 050 

POKEAN,95 : POKEAN+DI,6 : POKELC,96 : POKELC+DI, 

5 : rem 

21 2 

1 1 00 

SP = PEEK(1 01 0)+2 56*PEEK(1011) :Pl=SP-PO 

: rem 

1 08 

1 1 05 

IFPO=SPTHEN3 04 0 

: rem 

203 

m o 

IFPl > = 4 0THENP2 = 4 0 : GOTO! 200 

: rem 

58 

1 1 20 

IFPl < = -4 0THENP2 = -40:G0T01 200 

: rem 

1 47 

1 1 30 

IFPl>0THENP2 = 1 : GOTO!200 

: rem 

1 52 

1 1 40 

P2 = - 1 

‘ : r em 

227 

1 200 

P3=PEEK(PO+P2) : IFP3=92THEN1250 

.* rem 

48 


23 


1 205 

IFP2 = -P5THENP2 = P5: GOTO! 250 

: rem 

11 8 

1 21 0 

P5=P2■ 

: rem 

8 

1 250 

P3=PEEK(PO+P5):IFP3=92THENP5=-P5:P3=P4 

: rem 

98 

1 253 

IFP3=95THENP3=32 

: rem 

220 

1 255 

POKEPO+P5,91 :POKEPO+P5+DI, 0:POKEPO,P4:POKEPO+DI, 

5 : P4 


=P3:PO=PO+P5 

: rem 

105 

3020 

SYS(828) 

: rem 

1 83 

3030 

IFPEEK (1012)091 THEN4 000 

: rem 

1 02 

3040 

POKEl012,0:PRINT"{YEL}{HOME}{ 13 SPAZI}{RVS}COLLIS IO 


NE !":GOSUB35000 :GOT020000 

: rem 

1 3 

4000 

VZ = INT(XX- (TI/60) ) :PRINT"{BLK}{HOMEVZ"{SIN} " 

: IFV 


Z < = 0 THE N 2 0 0 0 0 

: rem 

1 0 

9999 

GOTOl020 

: rem 

224 

1 0000 

REM 

: rem 

21 3 

1 001 0 

RA=INT(4 *RND(1) ) 

: rem 

1 94 

1 0020 

IFPEEK(AN+X(RA))=92THENRETURN 

: rem 

1 65 

1 0030 

IFX(RA)=-X(0)THENRETURN 

: rem 

1 7 

1 0050 

CR=X (0) : X(0)=X(RA) : X(RA)=CR 

: rem 

117 

1 0060 

RETURN 

: rem 

21 5 

20000 

REM 

: rem 

21 4 

20005 

IFBO=lTHENPRINT"{HOME}{ 13 SPAZI}{RVS} 

GAME OVER 



{ 2 SPAZI}" 

: rem 

0 

2001 0 

REM 

: rem 

21 5 

20020 

REM 

: rem 

21 6 

20030 

REM 

: rem 

21 7 

20040 

REM 

: rem 

21 8 

20050 

POKEAN,32 :POKEPEEK( 1 01 0)+256*PEEK (1011 

) , 32 :POKEPO,3 


2 

: rem 

60 

20060 

FORP=17489T018325 

: rem 

31 

20070 

IFPEEK(P)=9 3THENPOKES1 + 4,17:POKES1 + 1 ,TU :PU=PU+1 

: PRI 


NT"[<6>]{HOME}";PU:POKEP,32 

: rem 

24 

20080 

TU=INT(PU/3) :POKE54 2 76,0:NEXT 

: rem 

105 

201 00 

FORI=17489T018325 

: rem 

1 9 

201 1 0 

IFPEEK (I) O9 6THEN2 01 20 

: rem 

79 

201 1 2 

POKES1 + 4,33:POKES1 + 1 ,TU 

: rem 

232 

201 1 5 

PC=PC+1 :PRINT"[<7>] {HOME}{ 29 DES}{ 5 

SPAZI}":PC:PO 


KEI,32 

: rem 

202 

201 20 

TU=INT(PC/3) :POKES1 + 4,0 :NEXTI 

: rem 

1 42 

20700 

BO=BO+l:IFBO=lTHENPRINT"{HOME}{ 16 SPAZI}{RVS}BONUS 


{OFF}{ 4 SPAZI}": XX=INT(PU/10) : GOTO4 00 

: rem 

89 

21 000 

FORI=lTO500:GETS$:NEXT 

: rem 

21 1 

21 005 

PZ = PZ + 1 :IFPZ = 11THENPZ = 1 :FORI = lTOl0:E$(I)="":NEXT 



: rem 

81 

21 01 0 

PRINT"[<5>]{CLRjTUO PUNTEGGIO} 10 SPAZI}="PU 




: rem 

1 24 

21 020 

PRINT"PUNTEGGIO DEL COMPUTER ="PC 

: rem 

1 40 

21030 

PRINT:INPUT"SCRIVI IL TUO NOME";N$(PZ) 

: rem 

1 97 

21040 

IFPZ< 2THENPU(0)=PC 

: rem 

1 95 

21050 

PU(PZ)=PU 

: rem 

1 22 

21 052 

FORI = 0TOl0 :IFPU(CP)<PCTHENPU(CP)=PC 

: rem 

68 

21 054 

NEXTI 

: rem 

1 32 
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21 055 
21 060 
21 070 
21080 
21 1 00 
21116 
21 1 20 

21 1 25 
21 1 30 
30040 

30045 

30050 

30060 
30070 
35000 
3501 0 
35020 
39000 

3901 0 

39020 

40000 

40003 

40005 

4001 0 

4001 5 

40020 

40025 

40030 

40035 

40040 

40045 

40070 

50000 

50002 

50005 


: rem 22 4 


GOSUB60 0 0 0 : rem 115 

FORI = OTOl0 :IFN$(I)<>"COMPUTER"THEN21 080 : rem 198 

CP=I : rem 19 

:NEXTI : rem 189 

PRINT"{RVS}RECORD" : rem 150 

PRINT : rem 136 

FORI = OTOPZ : rem 224 

IFIOl OTHENPRINT" " ; :rem 233 

PRINTI + 1".POSTO";E$(I) :NEXT : rem 231 

PRINT"{HOME}{ 20 GIU'jNUOVO GIOCO ? PREMI S 0 N" 

:rem 227 

REM 

GETA$:IFA$="S"THENPOKEl010,149:POKEl011,71:GOTO90 

: rem 197 

IFA$ < >"N"THEN3 00 50 :rem 32 

END : rem 20 9 

POKES1 + 4,12 9 : rem 234 

FORI = 2 5 5TOO STEP-1 :POKES1 + 1 ,I:NEXT : rem 190 

POKES1+4,0:RETURN :rem 154 

DATA0,66,165,24,255,36,66,36,0,239,239,239,0,253,25 
3,253,0,0,56,40,56 :rem 160 

DATA0,0,0,24,90,255,255,255,255,90,24,24,60,126,90, 
126,126,126,60 :rem 204 

DATA0,0,0,24,24,0,0,0 :rem 56 

DATAI 73,242,3,1 33,2 51 , 1 33,2 53,1 73,243,3,1 3 3,252,1 33 
/ 2 5 4 : r em 21 7 

DATAI 62,0,1 61 , 251 :rem 142 

DATA201,91,208,4,141,244,3,96,162,0,169,94,129,251, 
173,241,3,240,3,76,197 :rem 102 

DATA3,165,203,232,221,231,3,208,6,189,235,3,76,119, 
3,224,4,208,240 :rem 246 

DATA96,48,12,24,101,253,133,253,144,2,230,254,76,14 
2,3,24 :rem65 

DATAI 01, 253,133,253,1 76,2,198,254,1 62,0,161, 253 

:r em 89 

DATA2 01 , 92,2 08,1 , 96,1 69,93,1 2 9,251 , 1 69,94,1 29,2 53,1 
65,253 : rem 110 

DATAI 41,2 42,3,165,2 54,141, 24 3,3,24,105,148,1 33,2 54 , 
24,165,252 :rem 5 

DATAI 05,148,133,252,169,5,129,251,169,8,129,253,169 
,17,141,4,212,96 :rem 82 

DATA234,234,173,0,220,162,0,232,221,227,3,208,6,189 
*235,3 :rem57 

DATA76,119,3,224,4,208,240,96 :rem 241 

DATAI 26,125,123,119,62,10,47,44,216,40,255,1,0,0,14 
9,71,0 : rem 51 

INPUT"{CLR}{ 4 GIU'}{ 2 DESjVUOI USARE IL JOYSTICK 
(S/N)";A$ : rem 99 

IFA$ = "S"THENPOKEl 009,1 :rem 68 

PRINT"{CLR}{ 2 SPAZlJVUOI LE ISTRUZIONI ? (S/N)" 

: rem 178 
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5001 0 

50020 

50030 

50040 

50050 

% 

50080 

50090 

501 00 

501 1 0 

501 20 

501 30 

50140 

501 50 

501 60 

501 70 

501 80 

50200 

5021 0 

50220 

50230 

50240 

50250 

50260 

50270 

51 000 

51 01 0 

51 020 

51 030 

51 040 

51 045 

51 050 

51 060 

52000 

60000 

6001 0 

60020 

60030 

60050 

60060 

60070 


GETA$:IFA$ = ""THEN5001 0 : rem 
IFA$ <>"S"THENRETURN :rem 
PRINT"{CLR}{ 6 SPAZI}{RVS}ISTRUZIONI{OFF}": rem 
PRINT"{GIU'}DEVI USARE IL TUO GIOCATORE '{RVS} 
{OFF}' PER" : rem 
PRINT"RIEMPIRE DI TUOI PUNTI LE CORSIE. PER" 


PRINT"MUOVERTI DEVI USARE I SEGUENTI TASTI 


PRINT"{RVS}Q{OFF} SOPRA 
{OFF} SOTTO" 

PRINT"E {RVS},{OFF} SINISTRA, OPPURE 


DESTRA 


,{RVS}.{OFF} 

: rem 

PUOI USARE 


: rem 

PRINT"JOYSTICK POSIZIONATO IN [PORT 1]" : rem 
PRINT"DOVUNQUE PASSI IL TUO PERCORSO" : rem 
PRINT"VIENE MARCATO CON DEI PUNTINI." : rem 
PRINT"ANCHE IL COMPUTER MUOVE UN GIOCATORE" 


1 5 
1 1 
32 

1 34 

241 

93 

,{RVS}A 
1 80 

IL" 
1 62 
92 
1 86 
79 


rem 

• n 

rem 


ii 


PRINT"CHE CANCELLA I TUOI PUNTI 
PRINT"LA COLLISIONE CON LUI NON DETERMINA" 
PRINT"ALCUNA CONSEGUENZA." 

PRINT"IL PRIMO ROUND DURA 80 SECONDI" 
PRINT"FIN ITI I QUALI IL COMPUTER CONTA" 
PRINT"I TUOI PUNTI, E TI DA' UN SECONDO" 
PRINT"DI BONUS OGNI DIECI." 

PRINT"DOPO CHE IL GIOCO E' FINITO, DEVI" 
PRINT"SCRIVERE IL TUO NOME E IL COMPUTER" 
PRINT"ESPORRA' LA GRADUATORIA DEI PRIMI" 
PRINT"DIECI GIOCATORI." 

PRINT"{ 12 SPAZI}{RVS} PREMI UN TASTO 

GETA$:IFA$=""THEN51 000 
PRINT"{CLR}{ 8 GIU'}PRONTI" 

FORI=1TOl000:NEXT 
PRINT"PARTENZA" 

FORI=lTOl000:NEXT 
PRINT 

FORI = 1T02 0 


II 


rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 


250 
23 

1 53 
242 
1 2 
201 
75 
1 51 
92 
52 
35 

251 
1 40 

1 5 
1 91 
1 1 5 
47 
1 1 7 
1 40 
1 58 


PRINT"{SU}VIA":FORJ =1TOl00 :NEXT:PRINT"{SU} {RVS}VIA" 
:FORK=lTOl0 0 :NEXT:NEXT 
RETURN 

FORI = 1TOPZ:FORJ=PZTOISTEP- 1 
IFPU(J-l) > = PU(J)THEN600 50 
HV=PU(J-l) :PU (J-l)=PU (J) :PU (J)=HV 
HV$ =N$(J-l) :N$(J-l)=N$ (J) :N$(J)=HV$ 

NEXTJ, I • 

FORI = OTOPZ 

E$(I)=STR$(PU(I))+" PUNTI = "+N$(I) 


: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 

NEXT:RETURN 

: rem 


82 
21 5 
1 85 
9 
27 
1 52 
249 
230 

240 
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A Milano, 

in via Mascheroni 14. 

La prima software 
libreria italiana 

Un tempo si andava in libreria per il gusto della 
scoperta, per il piacere di esser informati sulle novità. 
Per incontrarsi, discutere, chiedere un consiglio al 
libraio-amico. Tutto questo è ancora possibile, per un 
prodotto assolutamente nuovo: libri e riviste di 
informatica italiani ed esteri, software, giochi. 

Dove? Alla Libreria JACKSON 

La prima software - libreria italiana. 


A Milano, in via Mascheroni 14. 

Tel. 02-437385 

Vieni a trovarci: ti aspettiamo. 












A TUTTA MUSICA CON 


Musica dal calcolatore, 
musica vera, musica tua! 

Con l'unità periferica 
SOUND BUGGY, e la tastierina 
musicale SIEL da sovrapporre a 
quella alfanumerica, il tuo 
Commodore 64 si trasforma in 
un'autentica band. 

Se sei già esperto di musica 
SOUND BUGGY ti porterà alla 
perfezione. Se sei un principiante 
diventerai, in pochi giorni, 
concertista e arrangiatore, 
comporrai musica tua e potrai 
ascoltarla in una perfetta 
registrazione elettronica, 
collegandoti a ogni impianto 
stereo, videotelevisivo, 
monitor C 64. 

UN ECCEZIONALE PACCHETTO DI 
PROGRAMMI 

Grazie allo straordinario 
software di SOUND BUGGY 
potrai eseguire o comporre su 24 
ritmi (12 preregistrati), disporrai di 
ben 28 timbri strumentali 

» 

(14 preregistrati), potrai correggere, 
migliorare, registrare. 

In più, tramite interfaccia 
MIDI, SOUND BUGGY 
comunica anche con expander, 
sintetizzatori, sequencer ecc. 

Insomma, SOUND BUGGY 
è un vero prodigio dell’elettronica 
al servizio della tua creatività 
musicale. 


Volume generale 


Volume per la parte 
orchestrale 


Volume per lo batteria 
elettronica 


Spia luminosa 
di corretta 
alimentazione 




MAXIPRESTAZIONE IN MINISPAZIO 

Il tuo laboratorio musicale, completo e perfetto, 
è tutto qui: il Commodore 64, il SOUND BUGGY, 
la minitastiera SIEL, il software. 


IMPORTANTE 

SOUND BUGGY 
è acquistabile 
esclusivamente tramite il 
coupon privilegiato di 
questa offerta. Ritaglialo 
e spediscilo subito. 
Usufruirai del prezzo 
bloccato fino al 

31.12.1985. 
















Questa Cedola rappresenta l’unico 
modo di ordinare SOUND BUGGY . e 
riceverlo completo di tastierina e di 
programmi su disco e cassetta. 

Ritagliala e spediscila subito. 


CEDOLA PRIVILEGIATA DI ACQUISTO 
SOUND BUGGY ZZC 



I ! Sì, desidero acquistare 
SOUND BUGGY, la 
vostra unità periferica 
per C 64. Speditemela 



contrassegno completa 
di minitastiera, 
pacchetto software sia 

su disco che su cassetta, 
libretto istruzioni al 
prezzo speciale di 
L. 1 85.000 (incluse 
L. 27.650 IVA e L. 3.750 
di spese postali). 

È inteso che il mio 


SOUND BUGGY 
sarà protetto da 

Garanzia per 1 anno. 

i 1 Sono interessato alla 
unità periferica per C 64 
SOUND BUGGY e vi 
prego di volermi fornire 
informazioni più 
dettagliate. 


12 MESI DI GARANZIA 


Nome_Cognome- 

Indirizzo--- 

CAP_Località- 

Data_Firma- 

(per i minori occorre quella del genitore) 






















A 

e* 

jj Interceptor 


Il mondo è attaccato da uno stor¬ 
mo di astronavi aliene. Queste ulti¬ 
me, modernissime, si trovano al di 
fuori dell’atmosfera terrestre, e da 
questa posizione per loro molto 
favorevole, sparano missili. Ti è 
stato dato l'incarico di difendere la 
tua città intercettando i missili, ma 
non è certo una cosa facile. Sei ar¬ 
mato di un antiquato laser dotato 
solamente di un mirino che tu do¬ 


vrai spostare in direzione del missi¬ 
le usando il joystick o i cursori. Una 
volta rassiunto l’obiettivo dovrai 
sparare premendo il pulsante di 
fuoco del joystick o la barra spa¬ 
ziatrice. Attento però, se sbasii la 
mira non farai più a tempo a spara¬ 
re un altro colpo. Il sioco termina 
quando le quattro città che devi 
difendere sono state distrutte. 


1 00 

REM* * *INTERCEPTOR* * * 

: rem 

1 92 

1 1 0 

GOSUBS20:B$(3)="{YEL}[<V>][< 2 F>][<B>]": 

B$(2)=" 



{GIU' } {RED} {RVS} [<B>] {OFF} [<C>] [<D>] {YEL} [<V>] ":B$ (1) 


= "{ 2 GlIV }{RED}[<B>] [<C>] [<F>]":B$(0)="{ 

3 GIU'} 



{RVS}[<V>]" 

: rem 

147 

1 20 

A$="{HOME}{ 19 GIU'}" 

: rem 

207 

1 30 

FORX=0TO8: READEL(X) ,EC(X) :NEXT 

: rem 

129 

1 40 

FORX=0TO6:READCL(X),CH(X):NEXTX 

: rem 

21 7 

1 50 

D=0:CT= 4 :P=80 

: rem 

1 84 

1 60 

PRINT"{CLR}" 

: rem 

251 

1 70 

POKE53280,6:POKE53281 , 1 4 :FORX = 55296T0561 75:POKEX, 

0 : NE 


XT 

: rem 

42 

1 80 

FORX=561 76T05 62 95:POKEX,5 :NEXT:FORX=1 904T02023 :POKEX, 


160 :NEXT 

: rem 

82 

1 90 

CL=1864 

: rem 

57 

200 

C = CL+INT(RND(8) *30) :IFP>0THENP=P+1 0 

: rem 

33 

210 

FORX= 0TO6:POKEC+CL(X) ,CH (X) :NEXTX 

: rem 

88 

220 

ML=C-818 :MC = 81 :MD = 39:IFRND(8) >.5THENMD = 41 

:ML=ML-1 




: rem 

1 59 

230 

AL=C-70-60*RND(8) *7 :AC = 4 3 

: rem 

35 

240 

MI=ML:P = P-1 

: rem 

1 1 9 

250 

K=PEEK(197):J=PEEK(653):FORT=OTOP:NEXTT 

: rem 

1 73 


30 






260 

270 

280 

290 

300 

31 0 
320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 


460 

470 

480 

490 

500 

51 0 

520 

530 

540 

550 

560 

570 


PRINT"{HOME}{WHT}{ 3 SPAZI}PUNTEGG10="STR$(D)+" 

{ 11 SPAZI}CITTA 1 ="STR$(CT)+ "{ 2 SPAZI}" : rem 222 
JY=PEEK(56321 ) :FI = JYANDl6:JY=15-(JYANDl5) : rem 173 

POKEAL,32 :IFAL>1104AND(JY=!ORJY= 50RJY= 90R(K = 7ANDJ=1}) 
THENAL=AL-80 : rem 61 

IFAL<1 74 5AND(JY=20RJY=60RJY=1OOR(K=7ANDJ = 0) )THENAL=AL 
+ 80 : rem 231 

IFAL>1104AND((JY>3ANDJY<7)OR(K=2ANDJ=1))THENAL=AL-2 

:rem 65 

IFAL<1 825AND(JY>70R(K=2ANDJ = 0) )THENAL=AL+2 : rem 17 

POKEML,3 2 :ML=ML+MD:IFPEEK(ML)< > 3 2ANDPEEK(ML)< >ACTHEN4 
40 : rem 177 

POKEML,MC: POKEAL, AC: IFK=60ORK=l 50RFIO1 6THEN350 

: rem 22 2 

GOT02 50 : rem 103 

FORE= 0TO8:POKEAL+EL(E) ,32 :NEXTE: IFD>0THEND = D-1 

: rem 1 1 2 

IFPEEK (ML) O32THEN250 : rem 220 

FORE=0TO8:POKEML+EL(E),EC(E):POKEML+EL(E)+54272,7:NEX 
T : rem 1 1 

S = 54272 :FORL= STOS + 24 :POKEL,0 :NEXT:POKES + 5,15:POKES + 6, 
15 :POKES + 24,15 : rem 121 

POKES + 1 ,5 :POKES, 235:POKES + 4,129:POKES + 4,128:FORT=0TO9 
99 :NEXT : rem 203 

FORE=0TO8:POKEML+EL(E) ,32 :POKEML+EL(E)+54272,0 :NEXT 

69 
22 
137 
98 
48 


D=D+100 

FORX= 0TO6:POKEC+CL(X) ,32:NEXTX:V=0 
GOTO200 

FORX=0TO3:PRINTA$;TAB(C-CL)B$(X):NEXT 
S=54 2 72 :FORL=STOS + 24 :POKEL,0 :NEXT:POKES +5,15:POKES + 6, 
15 :POKES + 24,15 : rem 119 


: rem 
: rem 
: rem 
: rem 
: rem 


POKES + 1 ,5 :POKES, 23 5:POKES + 4,129:POKES + 4,128 
000 :NEXTT 

CT=CT-1 : IFCT>0THENl60 

PRINT"{CLR}{WHT}{ 7 GlU'}**TUTTE LE CITTA' 
DISTRUTTE**":PRINT:PRINT" PUNTEGGIO="D 
END 

DATA-41,85,-40,66,-39,73,-1,67,0,90,1,67,39 
41,75 

DATA0,254,1,254,2,252,-40,108,-39,32,-38,97 

PRINT"{CLR}{WHT}":PRINT"SALVA LE TUE CITTA' 
ANDO I{ 5 SPAZI}MISSILI." 

PRINT:PRINT"USA IL JOYSTICK O I CURSORI PER 
L MIRINO DEL LASER (+)" 

PRINT:PRINT"PER SPARARE PREMI LA SPACE BAR. 
PRINT:PRINT"PER INIZIARE PREMI UN TASTO." 
GETQ$: IFQ$ = ""THEN5 60 
RETURN 


:FORT=0TO2 
: rem 52 
: rem 248 
SONO STATE 
: rem 116 
: rem 116 
,74,40,66, 
: rem 20 
,-37,32 
: rem 122 
INTERCETT 
: rem 2 
MUOVERE I 


n 


rem 

rem 

rem 

rem 

rem 


1 8 
159 
77 
1 21 
1 24 


31 



COSTRUISCI LA PRIMA BIBLIOTECA COMPLETA 

DI INFORMATICA PERSONALE 



DI PERSONAL COMPUTER 

Volume per volume, settimana per settimana, tutti gli argomenti 

dell’informatica personale: da cosa significa “vivere col computer” al BASfC; 

dal COBOL al PASCAL e ai più diffusi linguaggi e sistemi operativi (MS- DOS. CP/M, MSX ...) 

Dall'hardware al software, dalla programmazione dei personal computer all 'utilizzo dei piu 

affermati pacchetti software: Multiplan, Visicalc, Lotus 1-2-3, Symphony dBase II. Wordstar ... 




la sua avventura nel 
mondo dei computer 
e ha bisogno di una 
guida sicura per 
costruire le basi della 
sua conoscenza ed 
esperienza. 



per ragioni di studio, 
hobby, lavoro, 
precise tematiche di 
software, di hardware 
e di programmazione 



per esigenze professionali 
o culturali, un'organica 
Biblioteca di testi di base, 
scritti da esperti qualificati 
coerente con un disegno 
editoriale di ampio respiro 


QUADERNI JACKSON 

DI PERSONAL COMPUTER 

Una Biblioteca di agili 
monografie, rivolta ad un 
vastissimo pubblico: 
appassionati, professionisti, 
studenti e tecnici. 

30 Volumi pratici redatti con uno 
stile chiaro, competente, accurato 
ed essenziale. 



GRUPPO EDITORIALE 

JACKSON 

DIVISIONE LIBRI 
























